proc scaleflagset {hndl} {
#Solve for half of all filters
   setflag $hndl 0 21 1
   setflag $hndl 0 22 1
   setflag $hndl 0 23 1
   setflag $hndl 0 24 1
   setflag $hndl 0 25 1
   setflag $hndl 0 26 1
   setflag $hndl 0 27 1
   setflag $hndl 0 28 1
   setflag $hndl 0 29 1
   setflag $hndl 0 30 1
   setflag $hndl 0 31 1
   setflag $hndl 0 32 1
   setflag $hndl 0 33 1
   setflag $hndl 0 34 1
   setflag $hndl 0 35 1
   setflag $hndl 0 45 1
   setflag $hndl 0 57 1
   setflag $hndl -3 21 1
   setflag $hndl -3 22 1
   setflag $hndl -3 23 1
   setflag $hndl -3 24 1
   setflag $hndl -3 25 1
   setflag $hndl -3 26 1
   setflag $hndl -3 27 1
   setflag $hndl -3 28 1
   setflag $hndl -3 29 1
   setflag $hndl -3 30 1
   setflag $hndl -3 31 1
   setflag $hndl -3 32 1
   setflag $hndl -3 33 1
   setflag $hndl -3 34 1
   setflag $hndl -3 35 1
   setflag $hndl -3 45 1
   setflag $hndl -3 57 1
   setflag $hndl -2 21 1
   setflag $hndl -2 22 1
   setflag $hndl -2 23 1
   setflag $hndl -2 24 1
   setflag $hndl -2 25 1
   setflag $hndl -2 26 1
   setflag $hndl -2 27 1
   setflag $hndl -2 28 1
   setflag $hndl -2 29 1
   setflag $hndl -2 30 1
   setflag $hndl -2 31 1
   setflag $hndl -2 32 1
   setflag $hndl -2 33 1
   setflag $hndl -2 34 1
   setflag $hndl -2 35 1
   setflag $hndl -2 45 1
   setflag $hndl -2 57 1
   setflag $hndl -1 21 1
   setflag $hndl -1 22 1
   setflag $hndl -1 23 1
   setflag $hndl -1 24 1
   setflag $hndl -1 25 1
   setflag $hndl -1 26 1
   setflag $hndl -1 27 1
   setflag $hndl -1 28 1
   setflag $hndl -1 29 1
   setflag $hndl -1 30 1
   setflag $hndl -1 31 1
   setflag $hndl -1 32 1
   setflag $hndl -1 33 1
   setflag $hndl -1 34 1
   setflag $hndl -1 35 1
   setflag $hndl -1 45 1
   setflag $hndl -1 57 1
   }
